home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_64_getPos(aLinearList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  502 b   |  14 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vListPosition to the text of member "Checking Linear GetOne Input Field 2"
  5.   set vListPosition to stripSpaces(vListPosition)
  6.   set vListPosition to checkValue(vListPosition)
  7.   if vListPosition <> EMPTY then
  8.     if ilk(gDefaultLinearList, #linearList) then
  9.       set vGottenValue to string(getPos(gDefaultLinearList, vListPosition))
  10.       set the text of member "Checking Linear GetOne Display Field 3" to vGottenValue
  11.     end if
  12.   end if
  13. end
  14.